1 REM TURTLE-DEMO: 'BINAERBAUM'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
40 INPUT"BAUMGROESSE ........   48[157][157][157][157]";LE
50 INPUT"KRUEMMUNG ..........   27[157][157][157][157]";AE
60 INPUT"REKURSIONSTIEFE ....   8[157][157][157]";EW
70 INPUT"DEKREMENT ..........   1.27[157][157][157][157][157][157]";DM
80 !GRAPHICS:!INIT:!PEN0:!BACK99:GOSUB100:!FINISH
100 IFLE<EWTHENRETURN
110 !TURNLAE:!PEN1:!WALKLE
120 !PUSHLE
130 LE=LE/DM
140 GOSUB100
150 !PULLLE
160 !PEN0:!BACKLE
170 !TURNRAE*2:!PEN1:!WALKLE
180 !PUSHLE
190 LE=LE/DM
200 GOSUB100
210 !PULLLE
220 !PEN0:!BACKLE
230 !TURNLAE
240 RETURN